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Ra een initial message parsing module 1b. $ep-1984 00:23:4 AX-11 Bliss-32 V4.0-7 Page j NMI 
° . 14- ety 7 90°89: NML. SREINMLPARINI: B32; . (1) v0é 
3 i 901 XTITLE ‘NM initia} message parsing module’ ; 
ga 3890 MODULE NMLSPARINI a apibahs 
; B88 | ANGUAGE (BL1$$32) 3 
es 004 ADDRESSING_MODE (NONEXTERNAL = =GENERAL), ; 
; 5 0005 ADDR ESSING, MOD gf ee GENERAL), : 
3 6 0006 8 IDENT = 'V04-0 5 
3 7 st = F 
ee 9008} eo ; 
: 19 id : PITITITI LILLIE LILLE LLL LETTE TTT TTT TT TeTiTiTitiTiTTttte : 
3 '® * : 
$ i pong 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * $ 
: 1 001 1 !® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * : 
3 ie Bate : ~ ALL RIGHTS RESERVED. * 3 
3 : * 3 
; 0016 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
S- 0017 1 !* ONLY IN ACCORDANCE WITH THE MS SU ICENSE AND WITH THE * : 
; 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY E * : 
: 19 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
3 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 $3 B05) } it TRANSFERRED. * 3 
° . ® e 
; 23 $05 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 24 ite 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
3 $2 bnS2 ; it CORPORATION. * 3 
° . * e 
HY e7 it 44 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
H $8 4 : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
3 : * 3 
3 50 $030 1 !e * ; 
: 1 0031 1 PETTTITITILILILILITLLLLTLITILLLTTTTLTTLiTLi iii TiiiiiiiiiiiiiiiiiiTiie 3 
; 38 pas 1! 5 
. 0033 (1 3 
; 0034 1 !++ : 
: A it 3 ! FACILITY: DECnet-VAX V2.0 Network Management Listener : 
; 39 0037 1 | ABSTRACT: ; 
; 0038 1! 5 
2 oe 0039 1! This module contains action routines called by NPARSE to process : 
: re irk : NICE command messages from NCP. : 
; 4@ 004 ! ENVIRONMENT: VAX/VMS Operating System ; 
; rf Boee i ; AUTHOR: Distributed Systems Software Engineering 
>: 46 0046 1 | CREATION DATE: 8-OCT-1979 
: «47 0047 1! 
; «648 048 1 ! MODIFIED BY: 
; «649 049 1! 
; & 0050 1! v03-012 preste Kathy Perko 23-July-1984 
; 0051 1! area 0 is auel tes in a node number, default to the 
; 26 BO36 1! srecutor node area number. This undoes the change dated 
: 27 0034 ! 21-Mar-1984. 3 | 
oe 055 1: v03-011 MKP0011 Kathy Perko 18=April-1984 
; ooeS 1! Get the executor ID from the volatile databane On an as ; 3 
; oy 057 1! needed basis, but only once per command (rather than reissuing 
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0 14-Sep-1 NML.SRCINMLPARINI.B32; (1) 

; 8 0038 1! the Q10 every time the exec ID is needed.) Do it once per ; 
: 26 0966 : } command in case the command changes the name or address. ; 
: 61 061 1! v03-010 MKP0010 Kathy Perko 21-Mar-1984 : 
; p066 1! Add support for area 1 preston. This involves changing area 0 ° 
ES 0065 1! to area 1 for Phase IV NCPs and to the exec area for Phase III ‘ 
> 64 0064 1! NCPs. Also, disallow anything but SHOW and LIST from a Phase ‘ 
; 0065 1! III node. If they try to do a SET NODE by node number, they'll ‘ 
: 66 Bee : get area 1 instead of the exec's area - very confusing. ‘ 
: 68 0068 1 | V03-009 MKP0009 Kathy Perko 6-Jan-1984 : 
: i B08? : } Add X25-Access Module entity. ; 
feo 0071 1: V03-008 MKP0008 Kathy Perko 4-Aug-1983 : 
; f Ono : Add support to make node permanent database faster. ‘ 
ee 0074 1! v03-007 MKP0007 kathy Perko 20-April-1983 : 
: a BR? ! } Remove service functions from NML. ; 
. 0077 1: V03-006 MKP0006 kathy Perko 17-Jan-1983 : 
: % th : Add support for CONFIGURATOR module. : 
: 80 0080 1 | V03-005 MKP000S Kathy Perko 14-Nov-1982 : 
; «68 0081 1! Add a routine to return success if the NICE message ‘ 
; : B38 : } function code is change. : 
: 84 0084 1 | V03-004 MKP0004 Kathy Perko 8-Nov-1982 : 
;. 0085 1! Change NMLSPRSID so that it will save a field using tne ‘ 
: a8 poes : field length in the parsing tables. : 
; 0088 1} vO3-003 MKPO00S Kathy Perko 15-Oct-1982 : 
; 0089 1! Change the way NMLSPRSID saves node numbers, logging : 
; 009c 1! sinks, and Link numbers so that they are a longword instead : 
: 91 B09) : } of a word. : 
; 38 0093 1! v03-002 mKP0002 Kathy Perko 17=June-1982 ; 
: 96 0094 1! Add support for active X25-protocol networks. . 
; 0095 1! Also, add a routine for parsing qualifiers and : 
; 96 0096 1! change LINKS operations to use the node number or : 
: 44 44 : name as a qualifier. : 
; 99 0099 1! v03-001 MKP0001 Kathy Perko 16-June-1982_ : 
: 100 0100 1! Add parsing routines for X25-Protocol Module and entity : 
: 134 O10, : qualfiers. : 
: 108 108 1! v02-003 mKP0002 Kathy Perko 23-Nov-1981 3 
: 104 Bide 1! Delete NML validation of Line and circuit IDs. NETACP 3 
3 123 Hy ! will perform all validation. : 
; 199 109 1! v02-002 MKP0001 Kathy Perko 13-Nov-1981 ; 
: 108 108 1! Change name of pous tne that used to parse Line ids : 
; 109 109 1! and now parees both Line and circuit ids. 1.€. change : 
: 19 19 ; NMLSPRSLINE to NMLSPRSDEVICE. 3 
: 118 O11 1/ v02-001 LMK0001 Len Kawell 27-Jul-1981 
; 113 ons Remove Q10 buffer initialization. | 

| 

| 
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arations nating . 12786-1382 00:83:48 ENML.SRC NMLPARINI .832; ns (23 


ZSBITL ‘Declarations’; 


TABLE OF CONTENTS: 


DDD DSPs Be BS BB BE BE AWN NWA POPONNPNPOPN SS SS SO 


>t 
ao 


WO PNY N- ataltalealtal alta alalahal et eat ae a tata ele 
SSS FSS SNS FUN AS SONG ARGOS SHO Rat OOo NOUV UM O00 I 3 


FORWARD ROUTINE 


nml$prsid, 
nal $prsidn, 

nm $prsnodnam, 
nml$prs_node_num_entity, 
nml$prs_node_num, 

nal $prssnknna, 

nal $prssnknad, 

nal $prs_module, 
nml$prs_active_net, 

nm l$prsexesnk, 
nal$prsdevice, 

nal $prslogsin, 
nml$prs_noread, 
nal$prserri, 
nml$prsiderr; 


INCLUDE FILES: 


LIBRARY *LIBS$:NMLLIB.L32°; 
LIBRARY *SHRLIB$:NMALIBRY.L32'; 
LIBRARY 'SYS$LIBRARY:STARLET.L32'; 
! 


i MACROS: 


! 

! Macro to return a byte complement of a value 

(Used to prevent byte initialization overflow) 
| 
| 
| 
} 


MACRO 
not byte (n) = 
(C(NOT (m)) AND 2X°FF*) 


zz 
CSOOSOOOOOCOSOOOCOOCOOOCOOCOOOOSOSOSSOOOSOOCSOSOSOOCCSCOOCOOOCOOOOCOOOOCOOOOOO Vg 


eee ee ce ce ce ce me em ee ee ee ee ee ee ee ee ee ed ed ed 


EQUATED SYMBOLS: 


ee ee ee ee ee ee ee ee ES 
me me me ee ee ed ed od dd dd od 3 dD 


LITERAL 
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v04-000 Declarations ° ° 1 ~30071 38% 90:85: f8 ENML SRC NALPARINI 163224 
172 #1 , funcnt = 7; ! Total number of functions (Phase III only) 


! Invalid option bit mask definitions 

LITERAL 
P rea_invob_msk = not_byte (nma$m_opt_ent OR 
P nma$m_opt_inf OR 


nma$m_opt_per), 


cha_invob_msk = not_byte (nma$m_opt_ent OR 
nma$m_opt_inf OR 
nma$m_opt_per OR 
nma$m_opt_cle), 


vuvuv 


SGOOOOOSOSOSOOSOSOSOSOOOSOSSOSOSOSOSOSOSSOOSOSSOOOSCOSOOOOOOOOOCOOOOOOOOOOCOOOOOO 


REPIPOPIPIPIPIPONDPUDIPYUARINININININININININININININNID 2 9 Ot 


zer_invob_msk = not_byte (nma$m_opt_ent OR nma$m_opt_rea), 
lLoa_invob_msk = not_byte (nma$m_opt_ent), 


a 4 tt tt tt 


dum_invob_msk = not_byte (nma$m_opt_ent), 
tri_invob_msk = not_byte (nma$m_opt_ent), 
tes_invob_msk = not_byte (nma$m_opt_ent OR nma$m_opt_acc); 


OOO 00000000909 090909090909 III 


SOO LO OOO NAM WI ODS NEAR OS Doe eRe OO ee I OCONEE 


: OWN STORAGE: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
! Table of invalid option bits for each function 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 


IND 
invopb_tab = UPLIT BYTE( 
Loa_invob_msk, 
dum_invob_msk, 
tri_invob_msk, 


SLE ARAV LOSS VRAK A LOO MOAR DOORN 


DEI IPI DI IID ast st st at tt kk kk kk kk hd td 


tes_invob_msk, 
cha_invob_msk, 
rea_invob_msk, 
zer_invob_msk 
) : VECTOR Cfuncnt, BYTE); 


EXTERNAL REFERENCES: 


SNML_EXTDEF ; 


exreney, 

nal$ab_npa_blk : SNPA_BLKDEF, 
nal$gb_ncp_version: BBLOCK 

nal $gw-perm_exec_addr: WORD, 

nal $gw_vol_exec_addr: WORD, 

nal $gq_perm_exec_name_dsc: VECTOR, 

nml$gq_vol_@xec_name_dsc: VECTOR, 

nal$npa_init; 


POPNIMINIMINININD — 2 | BOOOOOCOCOOSCO OOO 
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-000 
3 1 EXTERNAL ROUTINE 
; 1 at arse, 
: $40 


nm S$openfile, 
nml$set_up_exec_id; 
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NMLSPARINI NAL initial messa arsing module 1b-se Sep-1 :4 AX-11 Bliss-32 V4.0-74 Pa 6 

v04-000 NMLSPARSE_INIT Taitial message pe parsing routine 1 730071382 99: $3: ‘3 NML.SRCINMLPARINI .B32; “4 - (3) 

: 24 40 1 ZSBTTL ‘NMLSPARSE yf boty tat message parsing routine’ ' 
; ro ? ! GLOBAL ROUTINE NMCSPARSE_INIT : 
: 245 43 1 t+ : 
; m4 rf: : FUNCTIONAL DESCRIPTION: : 
; 248 46 1! This routine invokes the NPARSE bs bbb i to check the funcition, ‘ 
: r?4 r : option, and entity codes in a received NICE protocol function. : 
; i 3 ' FORMAL PARAMETERS: ; 
; 38 3 1 i NONE ; 
H 4 § 1! 5 
; 255 55 1! IMPLICIT INPUTS: Fy 
3 28 0254 1! 3 
3; 8 7 so NONE 3 
; 258 2$ 1! 3 
; 4 0 ef : IMPLICIT OUTPUTS: : 
: 261 § 59 1! NML$GB_FUNCTION contains the cnet ten cote. : 
; 26 0260 1! NMLSGB_OPTIONS contains the option : 
; $e 0261 1! NMLS$GB"INFO contains the information code if the function is read. ‘ 
+ 264 0 6¢ 1 3 NALSCL~ -ENTCODE contains the entity code. ; 
: 265 0265 1! NMLSAB_NPA_BLK contains parsing internation about the remainder of the ; 
: 266 0264 1! message. ‘ 
: 267 0265 1! F 
; 268 0266 1 ! ROUTINE VALUE: : 
: 3r0 8 of ; COMPLETION CODES: ; 
> eri 0269 1 If the parse fails then the NML status code is returned as specified in : 
: Le 8 4 : } the parse state table otherwise NML$_STS_SUC is returned. ‘ 
: 276 0 2 1 | SIDE EFFECTS: ; 
3 2s 8 = © : 
; 276 7% «1! NONE : 
: ae 0275 1! 3 
; 278 8 76 1 !-- ‘ 
: 279 77 «1 3 
; 280 0278 BEGIN . 
: 281 0279 3 
; Hy 8 0 LOCAL ‘ 
; +4 3 1 ; STATUS; ! Temporary status : 
3 5 $ Initialize message parsing data : 
; 28 5 nal $gl_ pracode = 0; : poreqeter oo ; 
3 ae nal$gl-prs_figs = 0; ' persacter 3 
3 9 $gw_prmdescnt = 0: i Parameter descriptor count Z 
: 290 nal$gl_nmal_entity = 6; i NML's internal code for the ent : 
; nal$gw_vol_exec_addr = 0; i Get executor name and address eg volatile : 
; nml$gq_vol_exec_name_dsc [0] = Oj! db at most once for each NICE command. ; 
; 91 nml$gw_perm_exec_addr = 0; Get executor name and address from perm 3 
3 yr ; nal $9q_ perm_exec_name_dsc (0) = 0;! db at most once for each NICE command. : 
; 4 Be Call the NPARSE facility to parse function, option, and entity ; 
: 298 96 2 nml$ab_npa_blk Cnpa$l_msgptr] = nml$ab_rcvbuffer; ! Add buffer address and 3 


4 
NALSPARINI NML_ initial message parsing module 1bese -1984 00:23:4 AX-11 Bliss-32 V4.0-74 
v04-000 NMLSPARSE_INIT Taithal message parsing routine 1 30071382 99:85:48 ENML.SRe NALPARING 03004 
44 nmlSab_npa_blk CnpaSl_msgcnt] = .nml$gl_rcvdatlen; ' Length NPARSE arguments 

01 39 status = nmaSnparse (nml$ab_npa_blk 

0¢ 90 nmU$npa_init); ! Use Phase III state table 

o bs RETURN .status 

05 08 END; ! End of NMLSPARSE_INIT 

TIT 


LE 
IDENT \v04-00 
-PSECT S$PLITS,NOWRT,NOEXE ,2 
78 08 08 78 FB FB FB 00000 P.AAA: .BYTE -8, -8, -8, 120, 8, 8, 120 


UNVOPB_TAB= P.AAA 
.EXTRN NMLS$GB_EVTSRCTYP 
“EXTRN NMLS$GQ-EVTSRCDSC 
EXTR TCLASS 


NML$GQ_ENTSTRDSC 


Vv, WAL SAB PRMSEM 
NMLSAL_ENT INF TAB 


TAB 
EXTRN NM NML$GB_CMD_VER 
SEXTRN NMLSGB-ENTITY_CODE 

-EXTRN NMLSGB-ENTITY~FORMAT 


-EXTRN NMLSGL_QUALIFTER_PST 

“EXTRN NMLSGB~QUALIFIER~FORMAT 

“EXTRN NMLS$GB~FUNCT 

“EXTRN NMLSGB-INFO, NMLS$GB_ OPTIONS 

“EXTRN NMLSGL-PRMCODE, NMLSGL_PRS_FLGS 
-EXTRN “NML_ENTITY 

SEXTRN “NE TRAMDSC 

SEXTRN NML$GQ"RECBFDSC 

“EXTRN NMLSGW"PRMDESCNT 

“EXTRN NMLSAB"NPA BLK, NML$GB_NCP_VERSION 


NML SAB _ 
“EXTRN NMLSGW7PERM_EXEC_ADDR 
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4 
NMCSPARSE INIT daitial message persing routine 1ecsepeione $5:80;4  ENML SREIWAEPARING 1032, do 


NML 
TRN NML ' 
XTRN NMLSGETNODADR, NMLSOPENF ILE 
EXTRN NMLSSET_UP_EXEC_ID 


0004 00000 ENTRY NMLSPARSE_INIT, Save R2 3 
52 4 4 $43 09 ait MOV LS$AB_NFA_BLK+8, R2 5 
00000006 3 D4 0000 CLAL NMLSGL_PRMTODE 3 03 
38 G D4 O000F CLRL NML$GL_PRS_FLGS : 0 86 
0 G 00 84 00015 CLRW $NMLSGWOPRMBESCNT ; 028 
00 8 G 00 D4 00018 CLRL LSGL_NML_ENTI ; bS85 
00 G 8 B4 00021 CLRW §§ NMLS$GW-VOL-EXEC_ADDR ; 0289 
000000006 84 00027 CLAL NML$GQ_VOL_EXEC_NAME_DSC 3 Bso0 
44 44444 G 00 B84 000 4 CLRW NML$GW_PERA_CXET_ : 0291 
444 G 00 D4 000 CLRL NML$GQ_PERM EXEC_NAME_ DSC 3: 0292 
63 00000006 00 9E 00039 MOVAB NMLSAB_RCVBOFFER, NMLSAB_NPA_BLK+8 3 o638 
FC OA 4443 8 DO 00040 MOVL NMLSGL-RCVDATLEN, NMLSAB_NPA_BLK+4 ; 0297 
0000000G 00 9F 00048 PUSHAB NMLSNPA_INIT 3; 0299 
F8 Ag 9F 0004E PUSHAB NMLS$AB_APA_BLK 3 
000000006 00 02 FB eed CALLS #2, NMASNPARSE : 
04 00058 RET ; 0303 


; Routine Size: 89 bytes, Routine Base: S$CODE$S + 0000 


$4 
3: 


AIAN RINPINIPINPIPININYDY 9 OO OS OS Os 


SERFS SVS RRON Sse wero bms 


WAINAAIAI AAAI 
PE PUw 
VEWN OOM 


Ft 


; Routine Size: 
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NMLSPRSFNC Store function cose (action routine 1 ~300 138% 90:83:48 ENML SRE NMLPARINI .B32; 


ZSBITL "NMLSPRSFNC Store function code (action routine)’ 
GLOBAL ROUTINE NMLSPRSFNC = 


i FUNCTIONAL DESCRIPTION: 
Parse and store the function code from the NICE command message. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NML$GB_FUNCTION contains the function code. 
ROUTINE VALUE: 
COMPLETION CODES: 
If Phase III NCP and not a read function, returns NML$_STS_FUN. 
Otherwise, returns success (NML$_STS_SUCS 
SIDE EFFECTS: 


NONE 


Oe at a 
wie 


MO OONAOUES WN $9 OBNOUES WN (OOO VNOUS WN O00 


bel Re Re Rh De Be Re ed et De ne ee 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


fol Sas. funct ten = .nparse_block Cnpa$b_byte]; ! Set function 
RETURN nml$_sts_suc 


END; ! End of NMLSPRSFNC 


CGOOCOCSOCOOOOSCOSCOCOCOOOCOOOOOoOoOoOoOO: 


WAI AW AAA AAA AAA AA 
SHE EWWIMWIWINII nononononononononony 


0000 00000 -ENTRY NMLSPRSFNC, Save nothin 
000000006 90 18 AC 90 00002 MOVB § 24(NPARSE_BLOCK), NML$GB_FUNCTION 
OT Be ob0oD ae we 


14 bytes, Routine Base: S$CODE$S + 0059 
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SPRSOPT Check-and store option byte (action 12-8687 1388 90:89:48 ENML «SRC NAEPARING 1b3004 at (33 
ZSBTTL "NMLSPRSOPT Check and store option byte (action routine)’ 
GLOBAL ROUTINE NMLSPRSOPT = 


voeena™ 


'¢ 


lee 

FUNCTIONAL DESCRIPTION: 

Parse and store the options byte from the NICE command message. 
FORMAL PARAMETERS: 

; NONE 

{ IMPLICIT INPUTS: 

| NONE 

i IMPLICIT OUTPUTS: 

; NMLSGB_OPTIONS contains the option byte. 
i] 

i 

i 

' 

1 

i 

i 

' - 


169.09 09 08 SII SNS NSP PAA A AAA AA AUMMIVMIMIVIVIVIVIVIN EE EELS Tm 
WR 9 DONAUES WN 2 O OONOAUE WN OO OONOYV EWN" OOONOULWw 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


LOCAL 
invbits 


: BYTE ' ption 
tab_index : SIGNED BYTE, | Invalid bit ma 


pit temporary 


AAA AANA AWWA AW 


SOSSSOSOOOOCOOSCSOOOSOOSSOSOSOOSOOOSOCOCOSOS SOOO OOSOOOCSCOOOOOOOOOOOOOOOOOoOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


84 mask tabie index 

85 addr, 

4 $ status; 

88 384 Check NICE message options 

90 384 nml$gb_options = .nparse_block Cnpa$b_byte); ! Save entire option byte 
91 tab_index = .nml$gb func ign: ' Get function code for table index 
3 se tab_index = .tab_index - 15; ! Normalize the table index 

94 90 IF (.tab_index GEQ 0) 

95 4! oe liane LSS funcnt) THEN ! Range check 

39 38 invbits = = toxent tab C.tab_index] AND .nml$gb_options; ! Mask 
98 94 IF .invbits EQLU 0 THEN 

722 336 status = nml$_sts_suc ! No invalid bits 
rt 3 status = nml$_sts_fun ! Unrecognized option 
40 399 ELSE 


N 4 
NMLSPARINI NML_initial message parsing module 16-Sep-1984 00:23:4 AX-11 Bliss-32 V4.0-74 
vO%~000 NMLSPRSOPT Check and store option byte (action 12-888- 7 90:85:48 FAME. SRO War PARING 63004 
3 o8e rt , ‘Status = nml$_sts_mpr; ! State table error 
; 496 4 ¢ i Most NCP commands need the executor node's address and/or name at some 
; 40 4 ! point. Therefore, get it now, and set up globals containing either the 
3 tbs : 2 volatile or the permanent database executor address. 
: 410 406 iF .status THEN 
> 411 40 nml$set_up_exec_id ‘addr); 
: tl 408 RETURN .status; 
; «(41 0409 END; ! End of NMLSPRSOPT 


000¢ 00000 .ENTRY NMLSPRSOPT, Save R2,R3 
53 000000006 00 9 9002 MOV NML$GB_OPTIONS, R3 
3 4 C2 0000 SUBL2 #4, 
: 18 AC 96 0000C¢ MOVE §§ 24(NPARSE_BLOCK), NML$GB_OPTIONS 
0 000000006 00 9 9019 MOVB NL $GB FUNCTION, TAB_INDEX 
50 OF 82 0001 SUBB2 #15, TAB_INDEX 
50 0 98 OOO1A CVTBL YAB_INDER, RO 
1D 19 0001D BLSS $ 
07 50 91 OOO1F CMPB sé, #7 
18 18 00022 BGEQ 
52 63 92 00 4 COMB NML$GB_OPTIONS, R2 
51 00000000'0040 52 86 00¢7 BICB3 R2, INVOPB_TABLROJ, INVBITS 
05 12 00030 BNEQ 
52 01 00 00052 MOVL #1, STATUS 
08 11 0003 BRB 
52 0¢ CE 00037 1$: MNEGL #2, STATUS 
03 11 O003A BRB 
52 OA ce b003¢ $: MNEGL #10, STATUS 
09 52 €9 0003F 3S: BLBC STATUS, 4$ 
5E DD 00042 PUSHL SP 
000000006 00 01 FB 00044 CALLS #1, NML$SET_UP_EXEC_ID 
50 52 DO 00048 4$: MOVL STATUS, RO 
04 0004E RET 


; Routine Size: 79 bytes, Routine Base: SCODE$S + 0067 


; Routine Size: 14 bytes, Routine Base: S$CODES + 00B6 


5 

NMLSPARINI NML_ initial message parsing module 1e-se 1984 00:23:4 AX-11 Bliss-32 V4.0-74 Page 12 

v04-000 NMC SPRSOP2 Store Phase IT option code (action 132308- 1382 99:80:18 NML.SRCINMLPARINE -B32; (6) 
> 415 £19 1 ZSBTTL 'NMLSPRSOP2 store Phase II option code (action routine)' ; 
: £13 411 1 GLOBAL ROUTINE NMLSPRSOP2 = ‘ 
; 41 tig 1 ; 
; 418 415 1 !+4 : 
: 138 rt ! : FUNCTIONAL DESCRIPTION: : 
3 $21 213 1} Parse and store the options byte from the Phase II NICE command ‘ 
3; 4 ¢ 0417 1! message. ‘ 
>; 4 gei8 1: ‘ 
> 424 419 1 ! FORMAL PARAMETERS: ‘ 
; 425 0420 1! ; 
; 4 § Se 34 NONE : 
; 4 4 § : 2 ; 
> 428 04 1 ! IMPLICIT INPUTS: ‘ 
; 429 0424 1! ; 
; 430 0425 1! NONE ; 
; $e) 0426 1! : 
; 4 ¢ 0427 1°! IMPLICIT OUTPUTS: ‘ 
; 43 0428 1! ‘ 
3: 434 0429 1! NML$GB_OPTIONS contains the option byte. ‘ 
: $3? 0430 1! : 
s 4 0431 1 ! ROUTINE VALUE: : 
> 437 bess 1 ! COMPLETION CODES: ‘ 
; 438 0433 1! ; 
3; 439 0434 1! Always returns success (NML$_STS_SUC). ; 
; 440 0435 1! : 
> 441 0436 1 ! SIDE EFFECTS: : 
> 442 0437 1! : 
3; 443 0438 1! NONE ; 
> 464 0439 1! : 
; 445 0440 1 !-- : 
; 446 0441 1 ; 
3: 447 044 § BEGIN : 
; 448 044 : 
; 449 0444 2 SNPA_ARGDEF; ! Define NPARSE block reference : 
; 450 0445 2! : 
: $2) Bees 2: Save Phase I] NICE message option code ° 
3 438 gee8 nml$gb_options = .nparse_block Cnpa$b_byte); : 
3; 455 450 RETURN nml$_sts_suc : 
; 456 0451 : 
3 457 0452 1 END; ! End of NMLSPRSOP2 : 
00 0 -ENTRY NMLSPRSOP2, Save nothin ; 0411 : 
000000006 00 18 AC $6 $802 MOVB 24(NPARSE_BLOCK), NML$GB_OPTIONS ; 0448 : 
50 01 ? QO0A MOVL #i, RO : p79 : 
4 00000 RET ; 04 : 
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al message parsing module 16-s¢ Sep-1 74 AX-11 Bliss-32 V4.0 
F Store’ information type code (action 1 Saat 99: $3; 13 NML. SREINMLPARINE g33 
SBTTL "NMLSPRSINF store information type code (action routine)’ 

LOBAL ROUTINE NMLSPRSINF 


i 
N 
1% 
G 
144 
' FUNCTIONAL DESCRIPTION: 


This routine is a NPARSE action routine that sets the 
information code if the function is read information. 


FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NPARSE_BLOCK CNPASB_BYTE] contains the information code. 
IMPLICIT OUTPUTS: 

NML$GB_INFO contains the information type code. 


ROUTINE VALUE: 
COMPLETION CODES: 


Success (NML$_STS_SUC) is always returned. 
SIDE EFFECTS: 
NONE 


Oe ee ee 


BEGIN 

SNPA_ARGDEF ; ! Define NPARSE block reference 
Save the information code from the NPARSE argument block 
nml$gb_info = .nparse_block (Cnpa$b_byte); 

RETURN nml$_sts_suc 


END; ! End of NMLSPRSINF 
0000 00000 -ENTRY WNMLSPRSINF, Save nothin 
000000006 00 18 aC 90 00002 MOVB ge HRARSE BLOCK), NML$GB_INFO 
50 01 ? Beon MOVL » RO 


14 bytes, Routine Base: S$CODE$S + 00C4 


a a ---——-+ 
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NMALSPARINI NML_ initial message parsing module 16-Sep-1984 00:23:4 AX-11 Bliss-32 V4.0-742 Pa 14 
v04-000 NMLSPRSENT store-entity ties code (action rout 12-8001 382 99:83:48 ENML. SRC NMLPARINI .B32;1 ” (8) 
03 4 ZSBTTL "NMLSPRSENT Store entity type code (action routine)’ 
4 GLOBAL ROUTINE NMLSPRSENT = 


lee 
' FUNCTIONAL DESCRIPTION: 


This routine is a NPARSE action routine that sets the 
enitity code. 


FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NPARSE_BLOCK CNPASB_BYTE] contains the entity code. 
IMPLICIT OUTPUTS: 

NMLSGB_ENTITY_CODE contains the entity code. 


ROUTINE VALUE: 
COMPLETION CODES: 


Success (NML$_STS_SUC) is always returned. 
SIDE EFFECTS: 
NONE 


r~ 
DOOCoovwno 


WOOO NOUE WN ODO NANE WN ODO 
we 
SEALS SS Sooners Cer OOONAME WOO NE MRE Ooo Ie 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 
; Save the entity code from the NPARSE argument block 


nml$gb_entity_code = .nparse_block [npatb_byte); 
RETURN nal$. sts. suc 7 : 


END; ! End of NMLSPRSENT 


PUPVLV PULP PU DUDUDUPUPU PVD SUSU SUSU ISIS SISOS 
= POINIPIPIPINPIPINUID 2 tt 0 tt tt tt tt es 
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Fwn-0o 0 


0000 00000 -ENTRY WNMLSPRSENT, Save nothin 3; 0497 

000000006 00 18 ac 90 00002 MOVB § 24(NPARSE_BLOCK), NML$GB_ENTITY_CODE > 0534 
0 01 0 QOOOA MOVL #1, RO ; 0555 

4 00000 RET 3; 0537 


; Routine Size: 14 bytes, Routine Base: $CODE$ + 00D2 


3; 545 0538 1 


5 
NMLSPARINI NML_ initial message parsing module bese =1984 00:23:4 AX-11 BlLiss-32 V4.0-74 
v04-000 NMLSPRSIDLEQ Store oat ty fornst code if plura 12~g00= 138 00: 85ite ENML. SRC NMLPARINI.B32; 
> 547 39 1 XSBTTL stat Fee TOL ES Store entity format code if plural entity’ 
: rt re 1 GLOBAL ROUTINE NMLSPRSIDLEQ = 
: $550 248 1 !4+ 
: $3¢ tz } FUNCTIONAL DESCRIPTION: 
: : { ate 1 / This is an act ton routine called while parsing a NICE command. It 
; 222 248 } : bovey the entity format code if it is plural (KNOWN, ACTIVE, ADJACENT, 
: 36 548 1 | , 
3 5 208 ' IMPLICIT INPUTS: 
; 385 088) } ! NPARSE_BLOCK CNPASL_FLDPTR] points to the entity format code. 
3 261 0838 IMPLICIT OUTPUTS: 
3 568 beee : The main entity format code is saved in NML$GB_ENTITY_FORMAT. 
: 565 0537 1 § ROUTINE VALUE: 
: 208 b2e6 : COMPLETION CODES: 
: 568 0560 1 Success (NML$_STS_SUC) is returned if code specifies a plural 
; 569 0561 1! entity. If the entity format byte specifies a single entity, 
: 279 b2e8 ; unrecognized component error (NML$_STS_CMP) is returned. 
3 378 0564 SIDE EFFECTS: 
: are B208 : NPARSE state table transition is rejected if error is returned. 
: 576 0568 1 i-- 
3; 577 0569 1 
3; 578 0570 BEGIN 
3; 379 0571 
: 280 ba7¢ SNPA_ARGDEF ; ! Define NPARSE block reference 
: 38¢ 0574 2 LOCAL 
3 267 B372 temp : SIGNED BYTE; ! Temporary format code storage 
: aH 0377 temp = .(.nparse_block Cnpa$l_fldptr])<0,8>; ! Get entity format code 
: 387 $279 
; 588 0580 ! If the ont ity format byte is less than zero, then the NICE 
; 239 bee) command specifies a plural entity. 
: 294 258 if -temo LEQ 0 THEN 
$ 236 584 BEGIN 
; 59 585 nal $gb_entity_format = .temp; ' Save format code 
: 594 0586 RETURN’ nml$_sfs_suc 
: 298 AY evsee™ 
: $99 389 RETURN nml$_sts_cmp ! Return “single entity’’ completion. 
: 599 591 1 END; ! End of NMLSPRSIDLEQ 


F 5 
SPARINI NML initial mes ing eodul =S2ep-1986 00:23:4 AX-11 Bliss-32 v4.0-74 
WOL~000 NALSPRSIDLEO” Stave pacity tmcut code if plura Weakepetone fo:80r78 | FAM SaPbiss eae Nt O3004 
00 LENTRY NMLSPRSIDLEQ, $ thi 
50 14 BC #9 nt hove 8 D(NPARSE BLOCK). TEMP © 
000000006 90 6 99 90008 HOVE TEMP, NMLSGB_ENTITY_FORMAT 
be O18 RET ‘ 
50 10 CE 00018 1$: -MNEGL #16, RO 
04 00016 RET 


; Routine Size: 23 bytes, Routine Base: $CODE$ + 00E0 


; 600 0592 #1 
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ZSBTTL "NMLSPRSQUALLEQ Store entity format code if plural entity’ 
GLOBAL ROUTINE NMLSPRSQUALLEQ = 


'e4 
' FUNCTIONAL DESCRIPTION: 
This is an action routine called while parsing a NICE command with 
an entity quest ier. It saves the qualifier's format code if it 
is plural (KNOWN, ACTIVE, ADJACENT, etc.) 
IMPLICIT INPUTS: 

NPARSE_BLOCK CNPASL_FLDPTR] points to the qualifier format code. 
IMPLICIT OUTPUTS: 

The qualifier format code is saved in NML$GB_QUALIFIER_FORMAT. 


ROUTINE VALUE: 
COMPLETION CODES: 


Success (NML$_STS_SUC) is returned if code specifies a plural 
qualifier. If the qualifier format byte goes tries a single entity, 
unrecognized component error (NML$_STS_CMP) is returned. 


SIDE EFFECTS: 
NPARSE state table transition is rejected if error is returned. 


on 
c- 
ro 
| oe 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 
LOCAL 

temp : SIGNED BYTE; ! Temporary format code storage 


temp = .(.nparse_block Cnpa$l_fldptr])<0,8>; ! Get entity format code 


i If the qualifier format byte is less than zero, then the NICE 
' command specifies a plural entity. Note that a KNOWN qualifier 
is the same thing as no qualifier at all. 


if .temp LEQ 0 THEN 


BEGIN 
paren - wel {flor ternst = ,temp; ! Save format code 
RETURN nml$_sts_Suc; 
e.see 
RETURN nml$_sts_cmp; ! Return “’single entity’’ completion. 


END; ! End of NMLSPRSQUALLEQ 


rt 


VOL-00) "| «NAL SPRSGUALLES Store entity formet code if plu iSeo-1 84s P3560:48 — EAMC:SaedNALPARING B30: 4 Page 145 


00 .ENTRY NMLSPRSQUALLEQ thi 3 0594 
50 16 BC fi foe DINPARSE BLOCK). TEMPE? ; i 
000000006 99 8 MOVB TEMP NML$GB_QUALIFIER_FORMAT : $39 
p F MOVL #i, RO ; 064 

50 10 cE 18 1$: MNEGL #16, RO : 
4 00016 RET + 0645 


; Routine Size: 23 bytes, Routine Base: S$CODE$S + O0F7 


; 655 0646 1 


NALSPARINI NML_ initial message parsing module 1b-5e 4 74 AX-11 Bliss-32 V4.0-74 Page 19 
v04-000 NMLSPRSID Store ant ty tofeet ¢ code and id (act 1 12-80 0=1 882 99: $9; 13 NML.SRCINMLPARINI. B3oe4 ° (11) 
; 657 647 1 XSBTTL "NMLSPRSID Store entity format code and id (action routine)’ 

; ° 8 1 GLOBAL ROUTINE NMLSPRSID = 

3 49 1 

; 660 1 44 

8 $8) ° ! FUNCTIONAL DESCRIPTION: 

3 $68 : 1 This sj a@ NPARSE action routine that stores the entity format code 

3 $88 ¢ : } a specified number of bytes of entity id or qualifier id. 

; 656 1 | IMPLICIT INPUTS: 

; e8 6 : 1! 

; 608 4 1! NPARSE_BLOCK ENPASt Ft oun points to entity format and id. 

3 r§ } NPARSE-BLOCK LNPASL_F contains Length. 

; 671 661 1 ! IMPLICIT OUTPUTS: 

; O76 rok 1! 

; 67 1! NML$GB ENTITY EORAT contains the entity format code. 

3 ore geee : NMLSAB_ENTITY— ae contains the entity id string. 

; Of B08 1! NML$GB “QUALIFIER FORMAT contains the entity quelifier's format code. 
3 ort e084 : NMLSAB_QUALIFIER_ID contains the entity qualifier's id string. 

3; 679 BOG? 1 !-- 

3 0670 1 

; 681 0671 BEGIN 

; 68 Bor¢ 

; 68 Beez SNPA_ARGDEF ; ! Define NPARSE block reference 

3; 685 per? LOCAL 

: 676 count : SIGNED, 

3 7 0677 cpt. index, 

: 689 679 iptr, 

; 0 optr; 

; «4691 ed 

; 69 g count = .nparse_block (Cnpa$l_fldcnt) - . ! Get field count less format code 
3 $37 2 iptr = .nparse_Block Cnpa$l_Fldptrd; Get input field pointer 

: 695 85 2! 

; 696 0686 iaf parsing a qualifier, save fhe format and compute the address of the 

: 697 87 i Parameter Semantic Table (PST) ongey for the qualifier (the CPT index 

; 698 i for the parameter is put in the NPARSE block parameter by the parsing 

3 34 tables). 

3 44 4! IF “pal sal_ prs_flgs Cnml$v_prs_qualifier] THEN 

; 70 38 opte = ral See quel St tor id; 

3 704 94 gavel Ter_format™= CHSRCHAR_A (iptr); ! Store format code 
3; 705 95 cpt. ndex = o arse_block past. -paran) ; 

3 4] 36 “entry = nml$ab gcotable L -cpt_index, 0, 0, 0, 0); 

: 7 9 nat Sgle qualifier r pst 

: 708 98 nal$a ~prasen C.cpt_entry Ccpt$w_pstindex], 0, 0, 0, 0); 

: 709 99 END 

; 710 

; 711 701 

3 ats 7 § optr = nml$ab_entity_id; ! Get pointer to entity storage 
; 71 07 nal $gb_entity_format™ = CHSRCHAR_ A Ciptr); i Store format code 


a 
o 
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SPARINI NML_initial message parsing modu 1b-Sep 4 74 AX-11 Bliss-32 V4.0 P 
YO%~000 NMLSPRSID Store gnthty hye code and id (act 1 ~Sep-1 138 99: $3: ‘3 NML .SRC NMLPARINI. 9334 age 499 


; 714 7 END; 
s 715 705 
3 £18 7 av <somt ory 0 THEN 
s 71 7 HSCOPY (.count, .iptr, 0, 4, .optr); | Rove entity ID, making it 
; re 7 3 a longword. 
3; ny 7 RETURN nml$_sts_suc 
: £20 710 
s 721 711 END; ! End of NMLSPRSID 
003¢ 000 .ENTRY NMLSPRS 1D Save R2,R3,R4,R5 3 0648 
53 10 aC 01 es 00009 SUBL3 16(NPARSE BLOCK), COUNT : 068 
5 146 AC bd 0000 MOVL SO tNPARSE BLOCK), IPTR + 068 
31 000000006 96 a 9008 BBC , NML$GC_PRS FLGS, 1$ : 0691 
1 000000006 E 49) MOVAB WALSAB, QUACIFIER_ID, OPTR 3: 0693 
000000006 09 2 90 4 1A MOVB (IPT L$GB_GUALIFIER_FORMAT + 0694 
0 20 Ac 00 00021 MOVL 3 ALL _BLOCKY, CPT_INDEX > 0695 
50 OA C4 00025 MULL2 R : 0696 
0 0000000060040 9€ 90 8 MOVAB NAL $aB CPTABLECRO], CPT_ENTRY : 
0 60 3¢ 0 9 MOVZWL (CPT_E AeA : 0698 
0 10 C4 00 MULL2 #16,°R : 
000000006 00 0000000060040 H 905 MOVAB NAL SAB_ PRMSEMCROJ, NMLSGL_QUALIFIER_PST t osm 
51 000000006 8 9 904 1$ MOVAB NMLSAB_ENTITY_ID : 970¢ 
000000006 00 : 90 00 48 MOVB Mb TROT. NMLS$GB_ Entity. FORMAT + 070 
D5 00052 2$ TSTL OUNT : 0706 
06 15 00054 BLEQ : 
04 00 62 23 2c 10936 MOVCS COUNT, (IPTR), #0, #4, (OPTR) : 0707 
50 01 pO 0005C 3$ MOVL #1, RO : 0709 
04 0005F RET : 0711 


; Routine Size: 96 bytes, Routine Base: SCODE$S + 010E 
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7 
DN Store singular entity Length and na 14-Sep-1 NML.SRCJNMLPARINI .832; 
ZSBTTL "NMLSPRSIDN Store singular entity Length and name (action routine)’ 
GLOBAL ROUTINE NMLSPRSIDN = 


'e¢ 
} FUNCTIONAL DESCRIPTION: 


This is an action routine called while parsing a NICE command if the 
command specifies a singular entity (e.g. LINE DMC-0). It saves 

the entity length (in ent ty format code field) and the number of 
bytes of entity id (up to 10). 


IMPLICIT INPUTS: 
WARES BLOCK CNPASL_FLDPTR] contains the pointer to the entity 


ormat code and id string. 
IMPLICIT OUTPUTS: 


NML$GB_ENTITY_FORMAT contains the entity format code. 
NMLSAB_ENTITY_ID contains the entity id string. 

or 
NML$GB_QUALIFIER_FORMAT contains the entity qualifiers length. 
NMLSAB_QUALIFIER_ID contains the entity qualifier’s id string. 


ROUTINE VALUE: 
COMPLETION CODES: 


NML$_STS_SUC 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


LOCAL 

cpt_index, 

cpt_entry : REF BBLOCK, 
iptr, 

optr, 

Length; 


iptr = .nparse_block (npa$l_fldptrj; ! Get input field pointer 
Length = ch$rchar_a (iptr); ' Save entity length 


Some NICE commands specify qualifiers to the entity. Save the qualifier 
format separately from the main entity's. Also, use the NPARSE block 
parameter, which was set to the parameter's CPT index 7 the orsing 
able. to compute the parameter'’s Parameter Semantic Tabie (PST) entry 
address. 


F “pat sal_prs.flgs Cnml$v_prs_qualifier] THEN 


nal $gb_qualifier_format = .length; 

optr = nal$ab_qualifier_id; 

cpt_index = .nparse_block Enpast_parand; 

cpt_entry = nml$ab_cptable C.cpt_index, 0, 0, 0, 0); 


Page 18) 


< 
o 


> >in eee ee | 
SSS UPWN 


>> 
FASZ 


~“ 
oO 
uw 


3; Routine Size: 


NML_ initial message parsing module 18-50 Sep-1984 74 AX-11 Bliss-32 V4.0-74 
NMLSPRSIDN Store singuiar ent ty length and na 1 330-1382 99: $9: ‘3 NML.SRCINMLPARINI .B32; 
770 nml$gl_qualifier_ pst = 
at a nml$ab_prmsem C.cpt_entry Ccpt$w_pstindex], 0, 0, 0, 0]; 
7 
774 Bein 
775 \$gb_ ont i ty.foraet = . Length; ' Save format code 
wre 2 optr ="nml$ab_entity_id; ! Get entity id storage pointer 
778 CHSMOVE (. length, 
779 .iptr 
f , -optrs; ! Move entity id 
of § RETURN nml$_sts_suc 
0784 END; ! End of NMLSPRSIDN 


003¢ 00000 .ENTRY NMLSPRSIDN, Save (Ra R3,R4,R5 
53 14 aC 6 00002 MOVL § 20(NPARSE BLOCK) 1PTR’ 
51 8 A 00006 MOVZBL SiPtaps CEN 
31 000000006 00 02 fi 0009 BBC , NMLSGL_P 
00000000G 00 1 0 00011 MOVB LENGTH, “NCS 8 Atft ist FORMAT 
52 000000006 00 3 0018 MOVAB NMLS$AB QUALIFIER OPTR 
20 20 AC 00 OO01F MOVL 32(NP Pans. ABLOCK) 7 61° INDEX 
0 OA C4 00023 MULL2 R 
50 0000000060040 H 0026 OVAB NML$AB AB A CPTABLECRO], CPT_ENTRY 
20 60 3¢ 00 F MOVZWL CPT E ER 
0 10 ge 0 MULL2 #16, °R 
000000006 00 0000000060040 9 abe MOVAB NMLSAB_PRMSEMCROJ, NML$GL_QUALIFIER_PST 
000000006 Q gf 90 00 43 1$: MOVB _— LENGTH, NMI $GB ENTITY FORMAT 
000000006 00 4 004 MOV NMLSAB_ENTITY_ID, 
62 6 7 4644 2$: MOVC LENGTH, (IPTRIJ, (OPTR) 
50 01 00 00054 MOVL #1, RO’ 
04 00057 


88 bytes, Routine Base: SCODES + 016E 
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tial message parsing module 16-Sep-1984 00:23:4 AX-11 Bliss-32 V4.0-74 
NODNAM theck node Rane against executor 1 733071382 99:80:78 NML.SRCINMLPARINI .B32; 


ZSBTTL "NMLSPRSNODNAM Check node name against executor (action routine)’ 
GLOBAL ROUTINE NMLSPRSNODNAM = 


'o4¢ 


FUNCTIONAL DESCRIPTION: 


This is a NPARSE action that checks the node name against the 
the name of the executor node name. 


i 

i 

i 

FORMAL PARAMETERS: 

; NONE 

IMPLICIT INPUTS: 

i NPARSE_BLOCK CNPASL FLDPTR] contains the pointer to the entity 
! format code and id string. 
: NMLSGL_PRS_FLGS contains the current message parsing flag information. 
IMPLICIT OUTPUTS: 

i NMLS$GB_ENTITY_FORMAT contains the entity format code. 

NMLSAB_ENTITY_ID contains the entit 

ie 


® Y id string. 
WALSGL_NAL ENTITY is set to NMLSC_EXECUTOR if this is the executor 
node. 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 
BUILTIN 
CALLG; 
P 
nml$gb_options : BBLOCK (1); 
LOCAL 
namptr, 


: VECT 
exenamdsc : DESC 
exenamlen, 
status; 


exenamdsc fdsc$u_length) = 6; 
exenamdsc [dsc$a_pointer) = exenambuf; 


namptr = .nparse_block Frpastfidetr +43 
namlen = -nparse_block Cnpa$i_fldcnt) - 1; 


i If the node name in the NICE command matches the executor node name 
: then set the internal NML entity type to executor. 


if nml$chkexe (nma$c_pcno_nna, 0, .namlen, .namptr) THEN 
nml$gl_nml_entity = nml$c_executor; 
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SPARINI NML_initial message parsing module 16-Sep-1984 00:23:4 AX-11 Bliss-32 V4.0-742 p 4 
yo~000 NMLSPRSNODNAM theck node Rene against executor 122888 38 99:85; 98 NML.SRCINMLPARINI.B32; 1 ae 48 


g 4 ! 
; ee ‘8 Parse the node id normally. 
3 38 45 CALLG (.nparse_block, nml$prsidn); 
; 8 re RETURN nml$_stS_suc 
3 0 $ 8 END; ! End of nml$prsnodnam 
0000 00000 «ENTRY NMLSPRSNODNAM, Save nothing 3 0786 
5E 10 C2 BOE SUBL2 #16, SP r 
6E 06 80 0000 MOVW #6, EXENAMDSC 3 0831 
04 AE 08 AE i: 00008 MOV EXENAMBUF, EXENAMDSC+4 ; 0832 
51 14 AC 01 Ci 0000D ADDL3 #1, 20(NPARSE_BLOCK), NAMPTR > 0834 
50 10 Ac 01 ¢3 Bois SUBL #1, 16(NPARSE_BLOCK), NAMLEN 3: 0835 
93 BB 0001 PUSHR »R1> : 0840 
E Be 00019 CLRL ~ 3 
7E O1F4 ~=s BFF C 00018 MOVZWL #500, =-(SP) : 
00000000g 99 9% FB i 9 CALLS #4, NMLSCHKEXE ; 
7 0 €9 000 BLBC . 3 
000000006 00 07 DO 0002A MOVL #7, NMLSGL_NML_ENTITY : oof) 
FF72 CF 6C FA 00031 18: CALLG (NPARSE_BLOCK); NMLSPRSIDN 3 0845 
50 01 00 $038 MOVL #1, RO 3: 0846 
04 00039 RET 3 0848 


; Routine Size: 58 bytes, Routine Base: S$CODE$S + 01C6 


6 
NMLSPARINI NML_initial message parsing module 1b-se -1984 00:23:4 AX-11 Bliss-32 V4.0-74 P 5 
v0%4~000 NNCSPRS.NODE NUM_ENTOTY Check node address aga 1 ~3007 1382 99:85:48 NML.SRCINMLPARINI.B32; se alh 


; ¢ 4 1 ZSBTTL "NMLSPRS_NODE_NUM_ENTITY Check node address against executor (action routine)’ 
; rh i GLOBAL ROUTINE AMLSPRS_NODE_NUM_ENTITY = 

; 865 8 1 44 

H ¥4 Beez } FUNCTIONAL DESCRIPTION: 

; 868 bRes 7% This is a NPARSE action that checks the node address against the 
; 39? bees 1! node address of the executor node and then stores it. 

; 870 857 1! 

; 871 0858 1 ! FORMAL PARAMETERS: 

; 87 0859 1! 

; Hi + ¥¢ 1! NONE 

; 874 861 1! 

; 875 94, 1 ! IMPLICIT INPUTS: 

; 876 0865 1! 

; Orr 0864 1! NPARSE_BLOCK CNPASL_FLDPTR] contains the pointer to the entity 
; 878 0865 1! format code and id string. 

; 44s bees : NMLSGL_PRS_FLGS contains the current message parsing flag information. 
3; «881 0868 1 ! IMPLICIT OUTPUTS: 

; «88 0869 1! 

; 0870 1! NMLSGB_ENTITY_FORMAT contains the entity format code. 

> 884 0871 1! NMLSAB_ENTITY ID contains the ont tty id string. | 

; 885 bere 1! NML$GL-NML_ENTITY is set to NMLSC_EXECUTOR if this is the executor 
; 886 0873 1! node. 

; 887 0874 1! 

; 888 0875 1 !-- 

; 889 0876 1 

; 890 0877 BEGIN 

; «891 0878 

; 0879 $npa_argdef; ! Define NPARSE block reference 

; +89 0880 

3; 894 0881 BUILTIN 

; 895 ett CALLG; 

; 896 088 

: 897 0884 MAP 

; 898 0885 nml$gb_options : BBLOCK (1); 

3; 899 0886 

: 900 0887 BIND 

; +4 tts addr = (.nparse_block Cnpa$l_fldptrJ+1)<0,16> : BBLOCK (2); 

; 90 0890 : nml$fix_node_num (addr); 

3; 904 0891 } 

: 905 43 ! If the node address in the NICE command matches the executor node 

1 B08 peer ; address then set the flag to indicate it. 

; 908 0895 IF nml$chkexe (nma$c_pcno_add, .addr, 0, 0) THEN 

: 208 +454 nml$gl_nml_entity = nml$c_executor; 

3; 911 0898 ! Parse the node id normally. 

3 alg 0899 : 

5 Wi Bons CALLG (.nparse_block, nml$prsid); 

; ate iit RETURN nml$_sts_suc 

; 916 $9 : END; ! End of NMLSPRS_NODE_NUM_ENTITY 


NMLSPARINI NML_ initial messa arsing modul 1b-sep 4 14 AX-11 Bliss-32 V4.0-74 P 6 
v04-000 NMLSPRS_NODE_NUM_ eNTETY Check node address aga 1 =3ep 1982 99: $3; 13 NML.SRCINMLPARINI .B32; age 425 


0004 0 eCNTRY wen sens NODE_NUM_ENTITY, Save R2 ; 0850 
52 14 AC o1 C1 0002 ADDL3 , 20(NPARSE_BLOCK), R2 + 0888 
2 DD 00 PUSHL + 0890 
000000006 00 01 FB 00009 CALLS NML $F IX_NODE_NUM : 
ze 7C 00010 CLRO = wi gp) + 0895 
6 bp 90012 PUSHL  (R 2) ; 
7E O1F6 BF 3C 00014 MOVZWL #502, -(SP) : 
000000006 00 04 FB 00019 ALLS #4, func SCHKEXE ; 
07 50 £9 00020 BLBC ~—_ RO, ; 
000000006 00 07 DO 000 MOVL #7, NMLSGL_NML_ENTITY + 0896 
FEDF CF 6C FA 0002A 1$ CALLG (NPARSE BLOCK); NMLSPRSID ; 0900 
50 01 DO 0002F MOVL #1, RO + 0901 
04 00032 RET + 0903 


; Routine Size: 51 bytes, Routine Base: S$CODE$ + 0200 
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NML_ initial message parsing module 16-Sep-1984 90: 93:4 AX=-11 es V4.0-742 
NMLSPRS_NODE_NUM Check node address (action ro 14-Sep-1984 12:50:1 NML.SRCINMLPARINI .B32; 1 
904 1 ZSBTTL "NMLSPRS_NODE_NUM Check node address (action routine)’ 

2 5 ! GLOBAL ROUTINE RMLSPRS_NODE_NUM = 

309 1 S44 

208 ! FUNCTIONAL DESCRIPTION: 

910 1: This is a NPARSE action that checks a node address parameter 
boy. : and fixes up the area number (if necessary) and then stores it. 
0318 FORMAL PARAMETERS: 

919 ; NONE 

317 IMPLICIT INPUTS: 
0919 1: NPARSE_BLOCK CNPASL_FLDPTR] contains the pointer to the entity 
Ba59 1! format code and id string. 

Be 1 ! } NMLSGL_PRS_FLGS contains the current message parsing flag information. 
eh IMPLICIT OUTPUTS: 
0925 1! NMLS$GB_ENTITY_FORMAT contains the entity format code. 

0926 1! NMLSAB_ENTITY_ID contains the ont {ty id string. 

aH } NMLSGL_NML_ENTITY is set to NMLSC_EXECUTOR if this is the executor 
0929 | node. 
0930 1 !-- 
0931 1 
o38 BEGIN 
boxe $npa_argdef; ! Define NPARSE block reference 
b937 5 ett 
0938 : 
0939 BIND 
Boes addr = (.nparse_block Cnpa$l_fldptrJ+1)<0,16> : BBLOCK (2); 

094 Parse the node id normally. 

0944 2 nml$fix_node_num (addr); 

0945 CALLG (.nparse_block, nml$prsid); 

ape RETURN nml$_stS_suc 

948 END; ! End of NMLSPRS_NODE_NUM 

00 


DL3 #1, 20(NPARSE_BLOCK), R 


CALLS #1, NMLSFIX_NODE_NUM 
NPARSE BLOCK), AMLSPRSID 
MOVL #1, R 


50 14 AC 
000000006 00 
FEC6 gf 


tee oe 
BrOSIIVS 
v 
c 
nm 
=x 
Pe 


CooCooooeo 


Oooouo 
—-—O— 
ououm"nonro 
forwao-o 


asery’ NMLSPRS_NODE_NUM, Save gotbing 
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; Routine Size: 25 bytes, Routine Base: S$CODE$ + 0233 


sz 


F 6 

SPARINI NML_initial message parsing module 16-Sep-1984 00:23:4 AX-11 Bliss-32 V4.0-74 
yo%~000 NMLSPRS_MODULE theck’ for see tiied module 14-Sep-19 4 00:ga it UNML.SRe NALPARING 83004 
> 964 949 1 ZSBTTL *NMLSPRS_MODULE (Check for specified module’ 
; 965 4 0 1 GLOBAL ROUTINE RMLSPRS_MODULE = 
; 969 9 ; 1 '44 
; 968 2 1 ! FUNCTIONAL DESCRIPTION: 
; 292 954 1! This routine is called during parsing of the module entity id in 
; 970 TF 1! a NICE message. It's function is to determine the NML internal 
>; 971 9 § 1? entity code from the module string. It also saves the module 
s 97 957 1! id in NMLSAB_ENTITY_ID. 
; 44 228 1! 
; are 4 ! } IMPLICIT INPUTS: 
; 976 Bae) 1! NPARSE_BLOCK spetoted to by AP) contains the parsed parameter data. 
: 977 0366 1! NPASL_FLDCNT is the parameter length. 
3; 978 0965 1! NPASL_FLDPTR is a pointer to the parameter in the received 
; 979 0964 1! atseoes buffer. 
; 980 0965 1! NPASL_PARAM is the module type to check for. 
3 Ht bae8 : NMLSGL_PRS_FLGS contains the current message parsing flag information. 
; 98 0968 1 ! IMPLICIT OUTPUTS: 
> 984 0969 1! NMLSGL_NML_ENTITY = the internal NML entity ID of the module. 
>; 985 0970 1! NMLSAB_ENTITY_ID = the module id string 
; 986 0971 1! 
; 987 04h 1 ! ROUTINE VALUE: 
; 988 0975 1 ! COMPLETION CODES: 
; 989 0974 1! 
; 990 0975 1! NML$_STS_SUC = the module string corresponds to the one the parsing 
; 991 0976 1! ables currently seek. 
3 338 0977 1! failure - the module string doesn't correspond to the internal 
; 0978 1! entity code passed by the parsing tables. 
: 994 0979 1! 
; 995 0980 1 !-- 
; 996 0981 1 
; 997 a4 BEGIN 
; 998 098 
; 999 0984 SNPA_ARGDEF ; 
: 1000 bop: 
3: 1001 Hy BUILTIN 
<n 
3; 1004 0989 LOCAL 
3; 1005 990 iptr, 
3 1p08 991 length, 
$ 4 236 status; 
3; 1009 994 status = 0; 
3; 1010 995 iptr = .nparse_ block inpast_fldptrd; 
3 1911 396 sengte = ch$rchar_a (iptr); ! Save entity Length 
3 1oig 144 SEL ETONEU -nparse_block Cnpa$l_param] OF 
3 43 nml$c_x25_access]: 
3 : 16 H's! status = CHSEQL (.length, 
> 101 1 | ots 
3 ii 1 4 UPLIT (ZASCII ‘X25-ACCESS')); 
3; 101 1 Cnml$c_protocol}: 
: status = CHSEQL (. length, 

1020 1005 CHSEQL (.1 h 


SPARINI NML_initial message parsing module 
you000 NMLSPRS_MODULE theck’ for speci tied module 
3; 1021 1 iptr, 
; is § : iat (RASCII 
; 1026 1 5 Cnml$c_x25_serv): 
3; 1025 101 stafus = CHSEQL (.length, 
: : § : 3 -iptr, 
: 1028 1 ig UPLIT (ZASCII 
; 1029 1014 Crml$c_trace): 
: 19 0 1015 status = CHSEQL (.length, 
3; 1031 1 1 Pe 
: 10 ¢ 191 
: 10 1 Ht UPLIT (%ASCII 
: 10 101 Cnml$c_x29_serv): 
; 1035 1020 stafus = CHSEQL (. length, 
; 10 1021 -iptr, 
: 10 10 ¢ ° 
: 1038 10 UPLIT (ZASCII 
3; 1039 1024 Cnml$c_ni_config): 
: 1040 1025 BEGIN 
3 1041 10 $ status = CHSEQL (.length, 
; ok 10 -iptr, 
3 1044 1029 UPLIT (ZASCII 
: 1045 1030 END; 
: nee 193) TES; 
: 10e8 1033 
3; 1049 10 ! message, save the module name. 
; 1050 1035 ! 
3; 1051 10 § IF .status THEN 
3 1936 103 CALLG (.nparse_block, nml$prsidn) 
3; 105 1038 RETURN .status; 
3 1054 1039 END; 


FO oS ot ot aa) 
=I 
DIN VN 
VOWARUN 
PINE NS & 
nn Fw 
PRUNES 
NSUrToUUTOWw 
nnn & 
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*X25=PROTOCOL")); 


ge Bliss-32 V4.0-74 
NML..SRCIJNMLPARINI .B32; 


"X25-SERVER')); 
*X25-TRACE')); 


"X29-SERVER')); 


*CONF IGURATOR")); 


i If the parse tables are checking for the module type in the NICE 


! End of NMLSPRS_MODULE 


PSECT S$PLITS,NOWRT,NOEXE,2 
0007 -BLKB 1 
0008 P.AAB: .ASCII \X25-ACCESS\<0><0> 
0014 P.AAC: .ASCII \X25-PROTOCOL\ 
0020 P.AAD: .ASCII \X25-SERVER\<0><0> 
4 P.AAE: .ASCII \X25-TRACE\<0><0><0> 
P.AAF: .ASCII \X29-SERVER\<0><0> 
0044 P.AAG: .ASCII \CONFIGURATOR\ 
-PSECT S$CODE$,NOWRT,2 
0 geurer NMLSPRS_MODULE, Save R2,R3,R4,R5,R6,R7,R8 
CLRL TATUS 
MOVL O(NPARSE_ BLOCK), IPTR 
f MOVZBL re H 
012 MOVL (NPARSE_BLOCK), RO 
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SPARINI L_initial message parsing module 16-Sep-1984 00:23:4 AX-11 Bliss-32 V4.0-74 Pa 1 
VOL~000 NAL SPR RS_MODULE C theck’ for ober HH module 13-88-1383 00:85 te NML.SRCINMLPARINI .B32; 9 a) 
0D 0 1 CMPL = RO, #13 7 0999 : 
, if i CLRL i : 1000 ; 
OA 00 67 5 D 0001 CMPCS LENGTH, (IPTR), #0, #10, P.AAB ; : 
: 1 BRB 4$ : : 
19 : 1$: CMPL RO, #25 : 1004 ‘ 
BNEQ 2 : : 
4 p A CLRL. RS : 1005 : 
0c 00 67 ce 33 D 6 f CMPCS LENGTH, (IPTR), #0, #12, P.AAC : : 
11 BRB 4$ : ; 
11 45 D1 6 } 28: CMPL RO, #17 : 1009 : 
B 12 BNEQ 3$ : ‘ 
4 ps A CLRL. R4 : 1010 ; 
OA 00 67 5 2D 0003c CMPCS LENGTH, (IPTR), #0, #10, P.AAD : ; 
"8 OE 1 00003 BRB CGS : 
13 85 bl 0943 3$: CMPL = RO, #19 ; 1014 : 
D 12 0004 BNEQ 5$ ; ; 
4 ps O04A CLRL_.  -R4 + 1015 ; 
09 00 67 a 35 D O0¢ CMPCS LENGTH, (IPTR), #0, #9, P.AAE ; ; 
13 $08 4$: BEQL = 8S : : 
11 905 BRB 9$ ; ; 
15 D1 00057 5$: CMPL = RO, #21 : 1019 : 
B 12 O005A BNEQ 6$ : : 
4 ps 005¢ CLRL. RG : 1020 3 
OA 00 67 5 2D 0005 CMPCS LENGTH, (IPTR), #0, #10, P.AAF : ; 
30 «AB 006 F : 
OF 11 0006 BRB 7$ : : 
17 D1 00067 68: CMPL = RO, #23 + 1024 : 
10 12 0006A BNEG ~=-«*108 : : 
54 p4 006C CLRL_ RS + 1026 : 
0c 00 67 55 20 006 CMPCS LENGTH, (IPTR), #0, #12, P.AAG : : 
3c)—fsCAB 00 ; : 
0¢ 12 00075 7s: BNEQ 9$ 3 : 
4 06 0007 BS: INCL = RG ; : 
56 54 DO 00079 $$: MOVL 4, STATUS ; : 
05 56 €9 0007C 10$:  BLBC STATUS, 11$ > 1036 : 
FESE cf C FA OO7F CALLG (NPARSE BLOCK), NMLSPRSIDN : 1037 ; 
0 6 00 00 8 11$:  MOVL  STATUS,"R : 1038 
04 00087 RET : 1039 


; Routine Size: 136 bytes, Routine Base: SCODES + 024C 
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NALSPARINI NAL _ initial message parsing module 1b-se -1984 00:23:4 AX-11 Bliss-32 V4.0-74 
v04-000 NMLSPRS_ACTIVE_NE tore Retuork format code a 1 mH 1 90808 YNAL.SRE NMLPARINI .B32; 
ZSBTTL “NMLSPRS _ACTIVE_NET Store network format code and id (action routine)’ 
é GLOBAL ROUTINE RAMLSPRS"ACTIVE_NET = 
'o¢ 
! FUNCTIONAL DESCRIPTION: 
1 : This is a NPARSE action routine that is gelled when parsing a NICE 
006 command with an X25-Protocol network ent sf It saves a default 
06 network entity of ‘active network’’. This is here in anticipation 
bee of multinetwork support. 


IMPLICIT OUTPUTS: 


Sees 


NMLSGB_ENTITY_FORMAT contains NMASC_ENT_ACT (active). 


oo 
RRANRARE ERE RE RE EE 


WR O DONO UES ARO OONOUE WO S.. 


71 
Ore 
07 05 ! 
ore 32 } Use a zero length string to indicate ‘Active network’. 
876 06 nml$gb_entity_format = 0; 
07 06 nml$ab_entity_id = 0; 
078 06 
079 06 RETURN nml$_sts_suc 
080 064 


i 
$s 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 


Oe a — 4 9 — 9 “as 9 2 — 2 2s ts st SS YY 
bt st td ts ts db eb tt ts tt tt tt 


& 
g 


END; ! End of NMLSPRS_ACTIVE_NET 


0000 00000 -ENTRY NMLSPRS_ACTIVE_NET, Save nothing 
909000006 90 94 4 CLRB NMLS$GB_ENTITY_FORMAT 
0000000G 00 D4 0000 CLAL NMLSAB_ENTITY_ID 
50 01 BO ated MOVL #1, RO 
4 0001 RET 


Routine Size: 18 bytes, Routine Base: S$CODE$ + 02D4 
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SPRSSNKNNA Parse’s ink Rode name 1 ~3007 138% 90:83:48 ENML.SRE NMLPARINI .B32; ° ab 


ZSBTTL "NMLSPRSSNKNNA Parse sink node name‘ 
GLOBAL ROUTINE NMLSPRSSNKNNA = 


ea 
3s 


ARINI NAL 
NAL 


LOCAL 

addr : WORD e 
namptr, 
namien; 
' 


Open the node data base file (in case it's a permanent operation). 


IF .nml$gb_options Cnma$v_opt_per] THEN 
nalSopenfile (nma$c_opn_node, nma$c_opn_ac_ro); 


et et at ot ot I HOOOD 


M—OOONOULS WN "OOM 


Save the event sink node address. 


; 1083 1 1 

3% 1 1 

; 1085 1 5 1 

3 1 1 1 fee 

: } ! A : FUNCTIONAL DESCRIPTION: 

: 4 1 i 1 This is a NPARSE action that parses the sink node name. 

; ; : } a : The corresponding address is retrieved and saved for use. 

:1 1075 1 | FORMAL PARAMETERS: 

3 1998 1076 1! 

3 1 1077 1! NONE 

3; 1095 1076 1! 

; : : as } } IMPLICIT INPUTS: 

; 1098 108) 1/ NPARSE_BLOCK CNPASL_FLDPTR) contains the address of the node name. 

3; 1099 1OR6 13 NPARSE_BLOCK CNPASL_FLDCNTJ] contains the length of the counted node 

3; 1100 iss 1; name string (including the count byte). 

; 1183 Ieee : NMLSGL_PRS_FLGS contains the current message parsing flag information. ; 
; 1108 1086 i IMPLICIT OUTPUTS: : 
3 1106 1087 1! 3 
; 1105 1088 1! NMLSGL_PRS_FLGS CNMLSV_PRS_EXESNK] is set if this is the executor : 
3 1308 1089 1! node. ° 
3 110 4 1! 3 
3; 1108 1091 1 ! ROUTINE VALUE: 3 
3: 1109 1092 1 ! COMPLETION CODES: 3 
: 1110 10935 1! 

3 1111 1094 1! NONE 

; a | 1095 1! 

3111 10 1 ! SIDE EFFECTS: 

3 1116 109 1! 

3 1115 1098 1! NONE 

3 1116 1099 1! 

ie io 1 

; 1119 08 BEGIN 

: i 1 1 04 SNPA_ARGDEF ; ! Define NPARSE block reference 

: 11 5 1 06 

: Bs 3 : nal $gb_options : BBLOCK (1); 

: 11 1 

2 

: 11 $ 1 

311 1 

3 v1 1 

3 11 1 

311 1 

3; 11 1 

3 7% 1 

ie } 1 

311 1 

3; 11 1 

3 11 1 


ee a ee ee a a a a a a ed aed ed ad ed md OO 


SRGEAEG 
wa — 


rorore 


namptr = .nparse_block (npa$l_fldptr] + 1; 


, 
B38 
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; Routine Size: 


Kk 6 
NML_initial message parsing module 16-Sep-1984 00:23:4 AX-11 Bliss-32 V4.0-74 
NMLSPRSSNKNNA Parse’ sink Rode name 13-808- 3382 00:3 ite NML . SRC NAPPARING O3004 
}} H namlen = .nparse_block Cnpa$l_fidcnt) - 1; 
1125 IF naltgetnedesr (.namlen, .namptr, addr) THEN 
1; § aap Qw_evtsnkadr = .addr 
1 8 : nmlSerror_2 (nma$c_sts_ide, nma$c_ent_nod); 
1150 i If the address matches the executor node address then set the flag 
is 1 H to indicate the executor sink node. 
11 ‘ if a ge (nma$c pcno_add, .addr, 0, 0) THEN 
1134 nm\$gl_prs_flgs Crmi$v_prs_exesnk) = 1; 
1135 RETURN nml$_stS_suc 
11 END; ! End of NMLSPRSSNKNNA 


0000 000 .ENTRY NMLSPRSSNKNNA, Save nothing 
SE 04 ¢ 000 SUBL2 #4, SP 
000000006 00 000 TSTB | NMLSGB_OPTIONS 
e Fe po0o8 a ee 
00000000G 00 05 FB OOO0F CALL #2, NMLSOPENFILE 
51 14 AC . “On BRi6 1$ ADDL #1, 20(NPARSE_BLOCK), NAMPTR 
50 10 AC o1 (3 018 SUBL3 #1, 16(NPARSE-BLOCK). NAMLEN 
4003 F BB 000 PUSHR #*M<RO,R1,SP> 
000000006 00 03 FB 0024 CALLS #3, NMLSGETNODADR 
09 0 £9 00028 BLBC —E._—«aRO, 
000000006 00 6E 80 00 E MOVW ADDR, NMLSGW_EVTSNKADR 
ME De 00087 28: ELRL SkSP) 
7E 3 cE 09 9 MNEGL #9, -(SP) 
000000006 00 2 FB CALLS #2 NMLSERROR_2 
E 7C 00043 3$ CLRO 30 = (§P) 
7E 08 AE 3C 0004 MOVZWL ADDR, -(SP) 
O1F6 «BF 3E 00049 MOVZ2WL #502. -(SP) 
000000006 4 Fs 04 CALLS #4, NMLSCHKEXE 
0 E 5 BLBC. —_ «RO. 
000000006 90 1 8 005 BISB2 #1. NMLSGL_PRS_FLGS+1 
0 1 v0 005 4$: ROVE #1; RO 


99 bytes, Routine Base: S$CODE$S + 02E6 


ree it 


6 
initial message parsing module 18-5 -1984 00:23:4 
SPRSSNKNAD Parse's ink Rode address 1 ~$007 1382 90° 85:48 


BITL ‘NMLSPRSSNKNAD Parse sink node address’ 
OBAL ROUTINE NMLSPRSSNKNAD = 


: 
33 


AX-11 Bliss-32 V4.0-74 e 5 
YNML. SRC WALPARING b500% 20¢ 435 


- Tom 


+ 
FUNCTIONAL DESCRIPTION: 


This is a NPARSE action routine that stores the sink node address. 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NPARSE_BLOCK CNPASL_FLDPTR] points to the node address. 

NPARSE_BLOCK CNPASL_FLDCNTJ contains the count of the address plus 

the NMASC_ERT_ADD byte. 

NMLSGL_PRS_FLGS contains the current message parsing flag information. 
IMPLICIT OUTPUTS: 

NMLSGL_PRS_FLGS CNMLS$V_PRS_EXESNK] is set if this is the executor node. 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


WN $9 OONOAOUNE WN 5 CONOUE WN" O0OO~ 


ea tn in 2 tn eb — 4 4 ss td 2 te lt 


SSSELELRESLSSELESLLS LE SSLEBLAV LS ISVEAF WAS SH UPAR ASSO IIA 
SEEPS PALANAN INIA E~ S~ & > S S~ SE SE 


Pp 
nml$gb_options : BBLOCK (1); 


BUILTIN 
CALLG; 


a a ut tt 


BIND 
addr = (.nparse_block Cnpa$l_fldptrJ+1)<0,16>; 


' 
: Open the node data base file (in case it's a permanent operation. 


iF .nml$gb_options Cnma$v_opt_per] THEN 
nmlSopenfile (nma$c_opn_node, nma$c_opn_ac_ro); 


i If the address is zero then get the real executor node address and 
: set the flag indicating the executor sink node. 


if .addr EQLU 0 THEN 
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85 bytes, 


ze 
p 
ag 8 


na $getexeagr (addr); 
nml$gl_prs_figs 


ELSE 
BEGIN 


ssage parsing module 
Parse sink node address 


pal9be 12:80:15 


i$v_prs_exesnk] = 1; 


i If the node address has an area number of 0, fix it up to something 


meaningful. 


aml stix _node_num (addr); 


If the address matches the executor node address then set the flag 


to indicate the executor sink node. 


if nml$chkexe (nma$c pcno_add, need 
nml$gl_prs_figs Cnml$V_prs_exesn 


RETURN _evtsnkadr = 
Nnml$_sts_ suc. 


AN : 


52 14 
000000006 00 


000000006 00 
000000006 00 


000000006 07 


000000006 00 
000000006 2° 


! End of NMLSPRSSNKNAD 
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Routine Base: S$CODE$ + 0349 


roeeg  tioren & Save R2 
yar *BLOCK), 
alae TIONS 


=(SP) 
"2, NMLSOPENF ILE 
Me 


R2 

a. NMLSGETEXEADR 

R 

Re NMLSF 1X_NODE_NUM 

-(§P) 

(8) 

#502, -(SP) 

a, NMLSCHKEXE 
NMLSGL_PRS_FLGS+1 


is) NML$GW_EQTSNKADR 
in ko 


AX-11 Bliss-32 V4.0-7 
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l message parsing sodule 18-Se0-1984 90:93:43 at Bliss-32 V4.0- 


ia Bee Page 3; 
XESNK Get event sink executor node add 1 NML.SRCINMLPARINI .B32; (20) 
z 


AL 

addr : WORD; 

If no sink node has been specified then the executor node is intended. 
if "Begin tet_rs_ttos Crmi$v_prs_snknod] THEN 


L_ini 
S$ 

; 1235 1 1§ 1 ZSBITL "NMLSPRSEXESNK Get event sink executor node address’ : 
; : } ! } GLOBAL ROUTINE NMLSPRSEXESNK = : 
3 : 1 18 1 le4 ; 
3 : i6 : : } : FUNCTIONAL DESCRIPTION: : 
3: 1241 1 § 1! This routine is called while parsing a NICE message Logging entity. ; 
3 1 g 1 1! It sets up the default hy node as the executor node no sink ; 
3 : re : : : H node was specified explicitly. " 
3: 1245 1 § 1 ! FORMAL PARAMETERS: ; 
: 126 1 1! ; 
3: 126 1 3 1! NONE : 
3 124 1 1! : 
; ! rs ' ? : : IMPLICIT INPUTS: : 
3: 1251 1 ¢ 1! NPARSE BLOCK petted to by AP) contains the parsed parameter data. . 
3 1 26 1 1! NPASL_FLDCNT is the parameter Length. : 
3; 125 1234 1! NPASL_FLDPTR is a pointer to the parameter in the received : 
3 1254 1235 1! erseoge buffer. : 
; : 32 : 38 ’ } NMLSGL_PRS_FLGS contains the current message parsing flag information. : 
; 1287 : 33 : } IMPLICIT OUTPUTS: : 
; 1s?) 1600 ' NMLSGL_PRS_FLGS CNMLSV_PRS_SNKNOD] is set if it was not previously : 
3 ! set. . 
3; 1261 1566 1! NMLSGL_PRS_FLGS CNMLSV_PRS_EXESNK] is set if the executor node : 
: 1366 1243 1! address was found Tn the data base and a sink node had not been : 
; 156 1244 1! previously specified. ; 
3 1264 1$¢? i : 
3; 1265 1246 1 ! ROUTINE VALUE: : 
: 1266 12467 1 ! COMPLETION CODES: : 
3 1267 1668 1! : 
3; 1268 1249 1! Always returns success (NML$_STS_SUC). : 
3; 1269 1¢20 1! : 
3; 1270 1251 1 ! SIDE EFFECTS: . 
3 1271 1636 1! ‘ 
3 Le: 1253 1! NONE ; 
3: 127 1254 1! ° 
3 1274 1255 1 !-- . 
3: 1275 1536 1 : 
3: 1276 125 BEGIN : 
3 1277 1258 ‘ 
3: 1278 1259 SNPA_ARGDEF ; : 
3 1279 126 . 
3; 1280 1 MAP . 
3 : 81 ' ° nm $gb_options : BBLOCK (1); ‘ 
3 1 126 LOC : 
| 1 : 
31 1 . 
3 3 1 « 
3 1 1 

3 1 1 

3 3 1 

3 1 1 

3 1 1 


Roronononofonononorofornorory 
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i Open node file if it's a permanent data base operation. 


NMALSPARINI NML_ initial message parsing module 1b-5¢ AX-11 Bliss-32 V4.0-74 Page 38 
v04-000 NMLSPRSEXESNK Get event Sink executor node add 1 ety 7 99: $3: NML.SRC NMLPARINI. B3304 ° (288 
3: 129 1273 

: 129 1274 iF enml$gb_ opt ions Cnma$v_opt_per] THEN 

: : Se ! f? , nml$openfile (nma$c_opn_node, nma$c_opn_ac_ro); 

3 1 } re Get the executor node address. If none is specified, use address 0. 

: 1298 1279 if nm $getexeadr (addr) THEN 

: 1299 1280 Qw_evtsnkadr = .addr 

: 15300 1281 ELSE 

; 1301 1 Ht nml$gw_evtsnkadr = 0; 

3; 1 og 128 nat sol. prs_flgs pral sv. he. snknod] = 1; 

; 1 bi ! e nml$gl_ prs_figs Cnml$v_prs_exesnk] = 1; 

$ 1305 1286 2 RETURN nml$_sts_suc 

; 1306 1287 

: 1307 1288 1 END; ! End of NMLSPRSEXESNK 


0004 00000 -ENTRY NMLSPRSEXESNK, Save R2 ; 1217 
52 000000006 00 5 00002 Ov NML$GW_EVTSNKADR, R2 3 
5E 04 C2 00009 SUBL #4, SP~ 3 
28 000000006 00 01 3 0000C BBS #1, NMLSGL_PRS_FLGS+1, 4$ : 1269 
000000006 00 95 00014 TSTB NML$GB_OPTIONS~ : 1274 
09 18 QOO1A BGEQ 3 : 
7E 7C 0001C CLRQ = (SP) : 1275 
090000006 00 02 FB 4 9 CALLS We. NMLSOPENF ILE ; 
5E 0D 00025 1$: PUSHL 3 1279 
000000006 00 01 FB 00027 CALLS #1, NMLSGETEXEADR ; 
05 50 €9 Q002E BLBC ’ : 
62 6— B80 00031 MOVW ADDR, NMLS$GW_EVTSNKADR : 1280 
02 11 00034 BRB ; 
62 B4 te $3: CLRW ye EVTSNKADR ; 1282 
000000006 00 03 88 00038 3$: BISB2 3, . MC$GL_PRS_FLGS+1 ; 1284 
50 01 DO OO03F 4$: OVL i: RO ; 1286 
04 00042 ; 1288 


; Routine Size: 67 bytes, Routine Base: SCODE$ + 039E 
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7 
NMLSPARINI NML_initial message parsing module 1b-s¢ -1984 00:23:4 AX-11 Bliss-32 V4.0-742 Page 39 NMI 
v04-000 NMLSPRSDEVICE check device id (action routine) 1 ~3007 1382 90:83:48 NML.SRCINMLPARINI .832;1 . (21) vO: 
: 1309 1 4 1 ZSBTTL ‘NMLSPRSDEVICE Check device id (action routine)’ 
: : 19 ; + 1 GLOBAL ROUTINE NMLSPRSDEVICE = 
: 4 1 198 1 i+ 
; 131 1295 1 ! FUNCTIONAL DESCRIPTION: 
: 1314 1294 1! This is an NPARSE action that saves Line and circuit IDs. This 
: : 1? : 32 : a@ separate routine so that wildcarding can be added Later. 
: 1317 1 7 1! IMPLICIT INPUTS: 
; 1318 1298 1! NPARSE_BLOCK CNPASL_FLDPTR] contains the pointer to the entity 
: } i : +4 : } format code and id string. 
: 1 3 130) 1 i IMPLICIT OUTPUTS: 
3 1 ¢ 1 O¢ 13 NMLSGB_ENTITY_FORMAT contains the entity format code. 
3 ; 34 : 8 ! NMLSAB_ENTITY_ID contains the entity id string. 
: 1325 1305 1 i-- 
: 1326 1306 1 
: 1327 1307 BEGIN 
; 1358 1308 
: 1362 1a SNPA_ARGDEF ; ! Define NPARSE block reference 
HB GR fom a, 
; 1338 1318 ‘ 
3 1334 1314 LOCAL 
; 1335 1315 Length, 
: 1336 1316 addr; 
3 1332 1317 $ 
; 1338 1318 Length = .nparse_block cnpest fldcnt] - 1; ! Get Length not including count 
: 1332 1312 § addr = .nparse_block CnpaSl_fldptr] + 1; ! Get address of byte after count 
: 1341 1321 2 lee e eee eee RRR ERAEAAAAAAAEEAEAAE AAA AEA 
3 1346 1356 2 !* Wild cards are not currently allowed in Line 
; ise? 13s? § 's specifications. 
; 1345 1325 IF CHSFIND CH (.Length, .addr, XC**") THEN 
> 1347 1307 3! nml$gl_prs flgs = .nml$gl_prs_flgs AND Lin$m_wildcards; 
; 138 1368 3 AY N-nml$_sts_ide; 
: 1350 1390 : 
3; 1351 1331 'e 
3 1326 1336 ie 
. 1327 : Z Saeeeeeeeeeeeeekeeeeeeeeeeeeeeeeeeeeeeeeereerereeee 
: 1355 1336 CALLG (.nparse_block, nml$prsidn); ! Save Line entity id and format 
: 1329 1336 RETURN nml$_stS_suc; 
3; 1357 1337 1 END; ! End of NMLSPRSDEVICE 
0008 0000 -ENTRY NMLSPRSDEVICE, Save nothing : 20 
51 10 AC 6 C Bas sUBLs #1, 16(NPARSE_BLOCK), LENGTH : 151 
50 14 AC 1 ¢1 9000 ADDL #1, 20(NPARSE_BLOCK), ADDR ; 1519 


on™ 


; Routine Size: 


36 bytes, 
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ott ial message parsing module 16500-1984 90:83:43 et Bliss-32 V4.0-74 Page 41 


OGSIN Logging sink node check (action 14-Sep-19 NML.SRCINMLPARINI .B32; (22) 


ZSBTTL 10%, SPBSLOS IN Logging sink node check (action routine)’ 
GLOBAL ROUTINE NMLSPRSLOGSIN = 


'e+ 
FUNCTIONAL DESCRIPTION: 
This is a NPARSE action routine that checks the function code 
for a read tync fon. If the function is read then failure is 
returned to indicate that a sink node id must be parsed. 
If function is not read then success is returned. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NMLSGB_FUNCTION contains the function code. 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


wa 


rr 


COOON NAAN 
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Success (NML$_STS_SUC) is returned if the funtion is not read. 


Be Se Se Se Se Fe Ge Se Se Se Ge Se Ge Fe Se Os Se Se SH Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Ss See Se Se See Se Ss eeeee 
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84 
85 
Hy 303 Otherwise, failure (NML$_STS_MPR) is indicated. 
88 367 SIDE EFFECTS: 
389 68 
390 369 NONE 
mint 
38 35 
Soe BEGIN 
336 315 SNPA_ARGDEF ; ! Define NPARSE block reference 
398 39 IF ‘nal tge.funetion NEQU nma$c_fnc_rea THEN 
399 $8 RETURN nml$_sts_suc 
400 79 
rit ty RETURN nml$_sts_mpr; 
408 38) END; ! End of NMLSPRSLOGSIN 
0000 00000 ENTRY NMLSPRSLOGSIN, Save nothing : 1339 
14 000000006 00 91 0002 CMPB = NMLSGB_FUNCTION, #20 : 1377 
4 13 0000 BEQL 1$ : 
50 1 008 MOVL #1, RO ; 1380 
50 OA CE QOOOF 18:  ANEGL #10, RO 
be OoOrD | RET . > 1382 


————— EEE eee eee eae eee rc 7 
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; Routine Size: 19 bytes, Routine Base: $CODES + 0405 


NALSPARINI NML_ initial message parsing module 18-se -Sep-1984 $ 99: $3: $3 AX-11 Bliss-32 V4.0-74 Page 43 NM 
v04-000 NMLSPRS_NOREAD Check function code (action rout ~Sep-1984 NML.SRCINMLPARINI .832; (23) vO 
05 3 ZSBTTL "NMLSPRS_NOREAD Check function code (action routine)’ 
& GLOBAL ROUTINE RAMLSPRS_NOREAD = 


oe 
i Dbeedde ~~ DESCRIPTION: 
Check a. F saved function code and return success if it's 
rea 


i ROUTINE VALUE: 

i COMPLETIONS CODES: 2 m 
Returns success (NML$_STS_SUC) if the function code is ‘‘read’’. 
Otherwise it returns AMLS$_STS_CMP. 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


IF “nmi Sab function EQL nma$c_fnc_rea THEN 
RETURN nmL$_sts_cmp 


RETURN nmi$_sts_suc; 
ND; ! End of NMLSPRS_NOREAD 


= POPONONIPIPONINY 2 2 eres oY 
mm 
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0000 000 ENTRY NMLSPRS_NOREAD, Saye nothing : 1384 

14 00000000G 00 91 0000 CMPB NML$GB_ FUNCTION, 0 : 1402 
04 12 4 BNEQ 1$ 3 

50 10 ff 00B MNEGL #16, RO : 1405 
50 01 66 90008 18 nOVL #1, RO ; 

Be ite RET : 1406 


; Routine Size: 19 bytes, Routine Base: S$CODE$S + 0418 
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SPARINI NAL initial messea arsing module 16-Sep-1984 00:23:4 AX-11 Bliss-32 V4.0-74 Pa 44 
yo%~000 NMLSPRSERR1 errot pers ng messege (action rout 12788871382 99:80:18 ENML «SRC NMLPARINI .B32; 9° 24) 
3; 14 1407 1 ZSBTTL ‘NMLSPRSERR1 Error parsing message (action routine)‘ 

5 1? 12 } GLOBAL POUTINE NMLSPRSERR1 = 
: 14 « 1410 1 !4¢ 
: 1? ¢ 13} : FUNCTIONAL DESCRIPTION: 
: 14 1248 1 i This routine causes an error message to be almnatled with the status 
3 1? Veie : code specified in the NPARSE block (NPASL_PARAM). 
: 14 1416 1 | FORMAL PARAMETERS: 
3; 1440 141 1! 
i an ge pe 
: 1208 1420 1 ' IMPLICIT INPUTS: 
3 1446 1421 1! 
a4 opel oe 
: 1409 1454 1 | IMPLICIT OUTPUTS: 
> 1448 1425 1! 
2S 1 | aed 
> 1451 1428 1 | ROUTINE VALUE: 
H 1428 1 4 : COMPLETION CODES: 
; 1436 14 1 ; Always returns success (NML$_STS_SUC). 
; 1456 14 i SIDE EFFECTS: 
3 1458 1435 1! An error message is signalled. 
3 1459 14 § 1! 
3; 1460 14 1 !-- 
3; 1461 1438 1 
Ni 
; 1464 1441 SNPA_ARGDEF ; ! Define NPARSE block reference 
; 1608 1448 nml$error_1 (.nparse_block Cnpa$l_param]); ! Signal message 
; 128 ed RETURN nml$_sts_suc 
; 1290 140? END; ! End of NMLSPRSERR1 
0000 00008 ENTRY NMLSPRSERR1, Save nothing : 1608 
20 ac OD oes PUSHL 32(NPARSE BLOCK) 3 144 
000000006 98 gt FB 3 CALLS #1, NMLSERROR_1 3 
j B BC MOVL #i, RO : ree 
4 OOO0F RET 3 144 


Routine Size: 16 bytes, Routine Base: $CODE$S + 0428 
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DERR Error parsing Tle id (action r 1-0-1 NML .SRC NALPARING 6324 (25) 


ZSBTTL "NMLSPRSIDERR Error parsing entity id (action routine)’ 
GLOBAL ROUTINE NMLSPRSIDERR = 


oe 


i FUNCTIONAL DESCRIPTION: 


This routine Gpuses an entity id error message to be signalled 
with the detail code specifi te in the NPARSE block (NPASL_PARAM). 


FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 
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BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


nml$error_2 (nma$c_sts_ide 
-nparse_ he Cnpa$l_param)); ! Signal message 


RETURN nml$_sts_suc 
END; ! End of NMLSPRSERR1 
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20 ac oD 09 PUSHL 3 (NPARSE BL BLOCK 
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Routine Size: 19 bytes, Routine Base: S$CODES + 0438 


NALSPARINI NAL initial message parsing mod 18-5¢ Sep-1984 :4 AX-11 Bliss-32 V4.0-74 Page 46 
v04-000 NMLSPRSIDERR Error Sorsing ayes id (action r 1 ~3ep-1986 99: $3: 13 NML.SRCINMLPARINI .B32; ° (26) 
; 1515 14 1 END ! End of module 

3 1 1 14 1 

3; 151 1492 0 ELUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes 

: SPLITS 80 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SCODES 1102 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

3 spassese Gyabhel§ scosecse Pages Processing 

5 File Total Loeded Percent Mapped ime 

: _$25S$DUA28:CNML. arsturter tiers 341 41 12 27 00:00.1 

; 7$255$DUA28:(SHRLIBINMALIBRY 21 887 14 1 47 00:00.2 

: _$255$D0UA28:CSYSLIBISTARLET. is3 9776 2 0 581 00:02.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLPARINI/OBJ=OBJ$:NMLPARINI MSRC$:NMLPARINI/UPDATE=(ENHS:NMLPARINI) 
; Size: 1102 code + 80 data bytes 
Time 0:25.5 


Run : 
th49): tines 1: 
Lines/CPU Min: 351 
Lexemes/CPU-Min: 11092 
Memory Used: 111 pages 
Compication Complete 
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